﻿Module mdl_ViewLotService
#Region "ViewLotServiceGet"

    Public Function ViewLotServiceGet(ByVal InParamV As InSiteWebService.InViewLot, ByVal clientStr As String) As InSiteWebService.OutLotStd

        Dim Txn As New InSiteWebService.InSiteServiceSoapClient
        Dim OutParamV As New InSiteWebService.OutLotStd

        '●変数の初期設定
        InParamV.Header = New InSiteWebService.InHeader
        InParamV.Header.User = INSITE_USER
        InParamV.Header.Password = PASSWORD
        InParamV.Header.Client = clientStr

        Try
            OutParamV = Txn.ViewLotService_GetStdInf(InParamV)
            Return OutParamV
        Catch ex As Exception
            OutParamV.Header = New InSiteWebService.OutHeader
            OutParamV.Header.Status = STS_ERROR
            OutParamV.Header.ResultMessage = {ex.Message & " (" & ex.InnerException.Message & ")"}
            Return OutParamV
        Finally
            Txn = Nothing
            OutParamV = Nothing
        End Try

    End Function

#End Region

#Region "ViewLotServiceGetPro"

    'Public Function ViewLotServiceGetPro(ByVal InParamV As InSiteWebServicePro.InViewLot) As InSiteWebServicePro.OutLotStd

    '    Dim Txn As New InSiteWebServicePro.InSiteServiceSoapClient
    '    Dim OutParamV As New InSiteWebServicePro.OutLotStd

    '    '●変数の初期設定
    '    InParamV.Header = New InSiteWebServicePro.InHeader
    '    InParamV.Header.User = INSITE_USER
    '    InParamV.Header.Password = PASSWORD

    '    Try
    '        OutParamV = Txn.ViewLotService_GetStdInf(InParamV)
    '        Return OutParamV
    '    Catch ex As Exception
    '        OutParamV.Header.Status = STS_ERROR
    '        OutParamV.Header.ResultMessage(0) = ex.Message & " (" & ex.InnerException.Message & ")"
    '        Return OutParamV
    '    Finally
    '        Txn = Nothing
    '        OutParamV = Nothing
    '    End Try

    'End Function

#End Region
End Module
